home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / EditString.cpt / EditString Stack / card_2873.txt < prev    next >
Text File  |  1990-06-22  |  7KB  |  344 lines
  1. -- card: 2873 from stack: in
  2. -- bmap block id: 9019
  3. -- flags: 2000
  4. -- background id: 2645
  5. -- name: 
  6.  
  7.  
  8. -- part 3 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=252 top=88 right=112 bottom=508
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go cd count
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 4 (button)
  28. -- low flags: 00
  29. -- high flags: 2000
  30. -- rect: left=252 top=112 right=136 bottom=508
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 0
  35. -- text size: 12
  36. -- style flags: 0
  37. -- line height: 16
  38. -- part name: New Button
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   go cd findnth
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 5 (button)
  47. -- low flags: 00
  48. -- high flags: 2000
  49. -- rect: left=252 top=136 right=160 bottom=508
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: New Button
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   go cd trim
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 6 (button)
  66. -- low flags: 00
  67. -- high flags: 2000
  68. -- rect: left=252 top=196 right=220 bottom=508
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 1
  72. -- font id: 0
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 16
  76. -- part name: New Button
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   go cd pad
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 7 (button)
  85. -- low flags: 00
  86. -- high flags: 2000
  87. -- rect: left=252 top=160 right=172 bottom=508
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: New Button
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   go cd mid
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 8 (button)
  104. -- low flags: 00
  105. -- high flags: 2000
  106. -- rect: left=252 top=172 right=184 bottom=508
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: New Button
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   go cd right
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 9 (button)
  123. -- low flags: 00
  124. -- high flags: 2000
  125. -- rect: left=252 top=184 right=196 bottom=508
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: New Button
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   go cd left
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 10 (button)
  142. -- low flags: 00
  143. -- high flags: 2000
  144. -- rect: left=252 top=256 right=268 bottom=508
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: New Button
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   go cd ucase
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 11 (button)
  161. -- low flags: 00
  162. -- high flags: 2000
  163. -- rect: left=252 top=268 right=280 bottom=508
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: New Button
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   go cd lcase
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 12 (button)
  180. -- low flags: 00
  181. -- high flags: 2000
  182. -- rect: left=252 top=280 right=292 bottom=508
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 1
  186. -- font id: 0
  187. -- text size: 12
  188. -- style flags: 0
  189. -- line height: 16
  190. -- part name: New Button
  191. ----- HyperTalk script -----
  192. on mouseUp
  193.   go cd changeCase
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 13 (button)
  199. -- low flags: 00
  200. -- high flags: 2000
  201. -- rect: left=252 top=292 right=304 bottom=508
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: New Button
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   go cd capWords
  213. end mouseUp
  214.  
  215.  
  216.  
  217. -- part 14 (button)
  218. -- low flags: 00
  219. -- high flags: 2000
  220. -- rect: left=252 top=304 right=316 bottom=508
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 1
  224. -- font id: 0
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: New Button
  229. ----- HyperTalk script -----
  230. on mouseUp
  231.   go cd capSentences
  232. end mouseUp
  233.  
  234.  
  235.  
  236. -- part 15 (button)
  237. -- low flags: 00
  238. -- high flags: 2000
  239. -- rect: left=252 top=220 right=256 bottom=508
  240. -- title width / last selected line: 0
  241. -- icon id / first selected line: 0 / 0
  242. -- text alignment: 1
  243. -- font id: 0
  244. -- text size: 12
  245. -- style flags: 0
  246. -- line height: 16
  247. -- part name: New Button
  248. ----- HyperTalk script -----
  249. on mouseUp
  250.   go cd format
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 18 (button)
  256. -- low flags: 00
  257. -- high flags: 2000
  258. -- rect: left=480 top=0 right=32 bottom=512
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 21228 / 21228
  261. -- text alignment: 1
  262. -- font id: 0
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: Home
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   visual effect iris close
  270.   if the optionkey is down then
  271.     domenu "Quit Hypercard"
  272.   else
  273.     go home
  274.   end if
  275. end mouseUp
  276.  
  277.  
  278.  
  279. -- part 19 (button)
  280. -- low flags: 00
  281. -- high flags: 2000
  282. -- rect: left=445 top=4 right=36 bottom=477
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 14767 / 14767
  285. -- text alignment: 1
  286. -- font id: 0
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: info
  291. ----- HyperTalk script -----
  292. on mouseUp
  293.   show cd pict
  294.   show cd btn hidecdpc
  295. end mouseUp
  296.  
  297.  
  298.  
  299. -- part 20 (button)
  300. -- low flags: 80
  301. -- high flags: 0000
  302. -- rect: left=0 top=0 right=342 bottom=512
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 0 / 0
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: hideCDPc
  311. ----- HyperTalk script -----
  312. on mouseUp
  313.   hide cd pict
  314.   hide target
  315.  
  316. end mouseUp
  317.  
  318.  
  319.  
  320. -- part contents for background part 1
  321. ----- text -----
  322. EditString is a HyperCard external function that will perform a set of very useful text & number manipulations.  For convenience EditString is packaged as only one XFCN but is in fact a suitcase full of independent functions that are invoked by sending the appropriate sub-function name in the parameter list.  As a result EditString can be added to and modified easily.
  323.  
  324. -- part contents for background part 2
  325. ----- text -----
  326. 1   Counting the occurances of a
  327.     specific character within text.
  328. 2   Finding the position of the Nth
  329.     occurance of a specific character.
  330. 3   Trim spaces from the front and/or
  331.     the end of text.
  332. 4   Performing the BASIC MID$
  333. 5   Performing the BASIC RIGHT$
  334. 6   Performing the BASIC LEFT$
  335. 7   Padding text with a specified
  336.     character  (left or right).
  337. 8   Formatting a number as decimal
  338.     or scientific within a field
  339.     width.
  340. 9   Changing text to uppercase.
  341. 10  Changing text to lowercase.
  342. 11  Swapping the case of text.
  343. 12  Capitalizing words in text.
  344. 13  Capitalizing sentences within text.